(generate-fontset-menu): Return a

sorted list by plain names of fontsets.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index a1a64080bdc67dca496bcd90d09777e1d57750b0..6a3867d244ce170ac91483b437d2228f387a4cd2 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -382,7 +382,8 @@ with \"fontset\" in `<CHARSET_REGISTRY> field."
     (while fontsets
       (setq fontset-name (car (car fontsets)) fontsets (cdr fontsets))
       (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l)))
-    (cons "Fontset" l)))
+    (cons "Fontset"
+         (sort l (function (lambda (x y) (string< (car x) (car y))))))))
 
 (defun fontset-plain-name (fontset)
   "Return a plain and descriptive name of FONTSET."